Parches esenciales para grupo funcional de bosque


Parches esenciales para grupo funcional de bosque…

Parches importantes para grupo funcional de bosque


Parches importantes para grupo funcional de bosque…

Parches esenciales para grupo funcional de bosque y bosque ribereño


Parches esenciales para grupo funcional de bosque y bosque ribereño…

Parches importantes para grupo funcional de bosque y bosque ribereño


Parches importantes para grupo funcional de bosque y bosque ribereño…

---
title: "Parches esenciales e importantes en corredores biológicos interurbanos Río Torres y María Aguilar"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    social: menu
    source: embed
---

```{r setup, include=FALSE}
#-------------------- Paquetes --------------------

library(flexdashboard)
library(dplyr)
library(sf)
library(leaflet)
library(esri2sf)

#----------------------- URL ----------------------

# URL del ArcGIS REST Feature Service
url_agfs_bosque <-
  "https://services9.arcgis.com/RrvMEynxDB8hycVO/arcgis/rest/services/parches_esenciales_importantes_bosque_corredores/FeatureServer/0"

url_agfs_bosque_bripario <-
  "https://services9.arcgis.com/RrvMEynxDB8hycVO/arcgis/rest/services/parches_esenciales_importantes_bosque_bripario_corredores/FeatureServer/0"

#---------------------- Datos ---------------------

# Objeto sf de bosque
sf_bosque = esri2sf(url_agfs_bosque)

# Objeto sf de bosque y bosque ribereño
sf_bosque_bripario = esri2sf(url_agfs_bosque_bripario)

#---------------- Paletas de colores ---------------

pal_bosque_d_PC <- colorNumeric(c("yellow", "red"), sf_bosque$d_PC)
pal_bosque_IF <- colorNumeric(c("yellow", "red"), sf_bosque$IF_)

pal_bosque_bripario_d_PC <- colorNumeric(c("yellow", "red"), sf_bosque_bripario$d_PC)
pal_bosque_bripario_IF <- colorNumeric(c("yellow", "red"), sf_bosque_bripario$IF_)
```

### Parches esenciales para grupo funcional de bosque

```{r}
leaflet(data = sf_bosque) %>%
  setView(-84, 9.95, 11) %>%
  addProviderTiles(providers$OpenStreetMap.Mapnik, group = "OpenStreetMap") %>%
  addProviderTiles(providers$Stamen, group = "Stamen") %>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Imágenes de ESRI") %>%
  addPolygons(
    fillOpacity = 0.9,
    stroke = TRUE,
    color = ~pal_bosque_d_PC(d_PC),
    fillColor = ~pal_bosque_d_PC(d_PC),
    weight = 0.3,
    smoothFactor = 0.2,
    group = "Parches"
  ) %>%
  addLayersControl(
    baseGroups = c("OpenStreetMap", "Stamen", "Imágenes de ESRI"),
    overlayGroups = c("Parches"),
    options = layersControlOptions(collapsed = TRUE)    
  ) %>%  
  addLegend(
    position = "bottomright",
    pal=pal_bosque_d_PC,
    values = ~d_PC, 
    group = "Parches",
    title = "Esencialidad"
  ) %>%  
  addMiniMap(
    toggleDisplay = TRUE,
    position = "bottomleft",
    tiles = providers$OpenStreetMap.Mapnik
  ) %>%
  addScaleBar(
    position = "bottomright",
    options = scaleBarOptions(imperial = FALSE)
  )
```

***
Parches esenciales para grupo funcional de bosque...

### Parches importantes para grupo funcional de bosque

```{r}
leaflet(data = sf_bosque) %>%
  setView(-84, 9.95, 11) %>%
  addProviderTiles(providers$OpenStreetMap.Mapnik, group = "OpenStreetMap") %>%
  addProviderTiles(providers$Stamen, group = "Stamen") %>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Imágenes de ESRI") %>%
  addPolygons(
    fillOpacity = 0.9,
    stroke = TRUE,
    color = ~pal_bosque_IF(IF_),
    fillColor = ~pal_bosque_IF(IF_),
    weight = 0.3,
    smoothFactor = 0.2,
    group = "Parches"
  ) %>%
  addLayersControl(
    baseGroups = c("OpenStreetMap", "Stamen", "Imágenes de ESRI"),
    overlayGroups = c("Parches"),
    options = layersControlOptions(collapsed = TRUE)    
  ) %>%  
  addLegend(
    position = "bottomright",
    pal=pal_bosque_IF,
    values = ~IF_, 
    group = "Parches",
    title = "Importancia"
  ) %>%  
  addMiniMap(
    toggleDisplay = TRUE,
    position = "bottomleft",
    tiles = providers$OpenStreetMap.Mapnik
  ) %>%
  addScaleBar(
    position = "bottomright",
    options = scaleBarOptions(imperial = FALSE)
  )
```

***
Parches importantes para grupo funcional de bosque...

### Parches esenciales para grupo funcional de bosque y bosque ribereño

```{r}
leaflet(data = sf_bosque_bripario) %>%
  setView(-84, 9.95, 11) %>%
  addProviderTiles(providers$OpenStreetMap.Mapnik, group = "OpenStreetMap") %>%
  addProviderTiles(providers$Stamen, group = "Stamen") %>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Imágenes de ESRI") %>%
  addPolygons(
    fillOpacity = 0.9,
    stroke = TRUE,
    color = ~pal_bosque_bripario_d_PC(d_PC),
    fillColor = ~pal_bosque_bripario_d_PC(d_PC),
    weight = 0.3,
    smoothFactor = 0.2,
    group = "Parches"
  ) %>%
  addLayersControl(
    baseGroups = c("OpenStreetMap", "Stamen", "Imágenes de ESRI"),
    overlayGroups = c("Parches"),
    options = layersControlOptions(collapsed = TRUE)    
  ) %>%  
  addLegend(
    position = "bottomright",
    pal=pal_bosque_bripario_d_PC,
    values = ~d_PC, 
    group = "Parches",
    title = "Esencialidad"
  ) %>%  
  addMiniMap(
    toggleDisplay = TRUE,
    position = "bottomleft",
    tiles = providers$OpenStreetMap.Mapnik
  ) %>%
  addScaleBar(
    position = "bottomright",
    options = scaleBarOptions(imperial = FALSE)
  )
```

***
Parches esenciales para grupo funcional de bosque y bosque ribereño...

### Parches importantes para grupo funcional de bosque y bosque ribereño

```{r}
leaflet(data = sf_bosque_bripario) %>%
  setView(-84, 9.95, 11) %>%
  addProviderTiles(providers$OpenStreetMap.Mapnik, group = "OpenStreetMap") %>%
  addProviderTiles(providers$Stamen, group = "Stamen") %>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Imágenes de ESRI") %>%
  addPolygons(
    fillOpacity = 0.9,
    stroke = TRUE,
    color = ~pal_bosque_bripario_IF(IF_),
    fillColor = ~pal_bosque_bripario_IF(IF_),
    weight = 0.3,
    smoothFactor = 0.2,
    group = "Parches"
  ) %>%
  addLayersControl(
    baseGroups = c("OpenStreetMap", "Stamen", "Imágenes de ESRI"),
    overlayGroups = c("Parches"),
    options = layersControlOptions(collapsed = TRUE)    
  ) %>%  
  addLegend(
    position = "bottomright",
    pal=pal_bosque_bripario_IF,
    values = ~IF_, 
    group = "Parches",
    title = "Importancia"
  ) %>%  
  addMiniMap(
    toggleDisplay = TRUE,
    position = "bottomleft",
    tiles = providers$OpenStreetMap.Mapnik
  ) %>%
  addScaleBar(
    position = "bottomright",
    options = scaleBarOptions(imperial = FALSE)
  )
```

***
Parches importantes para grupo funcional de bosque y bosque ribereño...